* .gdbinit (xgettype): Add cast.

diff --git a/src/.gdbinit b/src/.gdbinit
index 1bfc293c4669bdb3874c90614ed84a327922d806..275a1d8db887dc476406c9ec5d3ef0e4f0a300c9 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -67,7 +67,7 @@ define xgettype
   else
     set $bugfix = $arg0
   end
-  set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : $bugfix >> VALBITS)
+  set $type = (enum Lisp_Type) (USE_LSB_TAG ? $bugfix & (1 << GCTYPEBITS) - 1 : (EMACS_UINT) $bugfix >> VALBITS)
 end
 
 # Set up something to print out s-expressions.

diff --git a/src/ChangeLog b/src/ChangeLog
index 9a32c174d8f6800b941c090ae538bd7010c132b8..d2dbc187da9a8ff53c8f9b9e8537b528cd862a2a 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2013-11-26  Andreas Schwab  <schwab@suse.de>
+
+       * .gdbinit (xgettype): Add cast.
+
 2013-11-26  Glenn Morris  <rgm@gnu.org>
 
        Preload leim-list.el.